home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nos107c / nosmain.plt < prev    next >
Text File  |  1993-11-30  |  21KB  |  770 lines
  1. /************************************************************************
  2. *    Ｎｉｆｔｙ Ｏｆｆｌｉｎｅ Ｓｉｇｎｕｐ                *
  3. *              Presented by    -なる-☆　　（PGA01332）＆    *
  4. *                    Yama-chan　 （PEE01244）    *
  5. *************************************************************************/
  6. /*    メモ&ファイル    */
  7. var MEMOno[1];
  8. var BELFIL[64];
  9.  
  10. /*    設定ファイルのパス名    */
  11. var    SETFILE    [64];
  12. var    SETFILE1[64];
  13.  
  14. /*    ディレクトリ    */
  15. var     TEMP    [64];
  16. var     TEMP2    [64];
  17. var     SOUND    [64];
  18. var     SOUND2    [64];
  19.  
  20. /*    画面背景色    */
  21. var     R[3];        var     G[3];        var     B[3];
  22.  
  23. var    ROAD1[30];    var    ROAD2[30];    var    ROAD3[30];
  24. var    DIAL[1];
  25. var    MODEM    [50];
  26.  
  27. var    SERno[8];    var    AGRno[8];    var    ComID[8];
  28. var    LINEno[2];    var    OPEN[1];
  29.  
  30. var    NAME[16];    var    Lname[15];    var    Fname[15];
  31.  
  32. var    CITY[2];    var    myCITY[10];    var    RmyCITY    [32];
  33. var    myBANCHI[20];    var    myKATAGAKI[20];
  34. var    RmyBANCHI[30];    var    RmyKATAGAKI[30];
  35. var    YUBINno[6];    var    TELno[20];    
  36.  
  37. var    OFFICE[60];    var    KAKARI[60];    var    OFFICEno[20];
  38. var    CLEDIT[2];    var    MEMBER[19];    var    LIMIT[5];
  39. var    MAKER[2];    var    MACHINE[20];
  40. var    YesNo[1];
  41. /*    ID & PASSWORD    */
  42. var     ID[16];        var     PW[16];
  43.  
  44. /*    初期環境設定    */
  45. %init    {
  46.     case    (R<>{} && G<>{} && B<>{},{Yes},{backclr(R,G,B)});
  47.     case    (@tail(BELFIL,{.}),
  48.         {snd},{bellfile(BELFIL)},
  49.         {SND},{bellfile(BELFIL)});
  50.     case    (@nochar(SOUND)==3,
  51.         {No}, {SOUND2:=SOUND|{\}},
  52.         {Yes},{SOUND2:=SOUND});
  53.     case    (SOUND<>{}&&@setcdir2(SOUND)={No},{Yes},{mkdir2(SOUND)});
  54.     };
  55.  
  56. /*    Ｎ.Ｏ.Ｓ.のｳﾞｧｰｼﾞｮﾝ･ﾚﾍﾞﾙ        */
  57. %VERLEV        {Ｖｅｒ １.０７ｃ};
  58. %VerLev        {Ver1.07c};
  59.  
  60. %DEBUG    {No};        /*    デバッグモード    */
  61.  
  62. /*    音声ファイル 出力 処理        */
  63. %BELL    @xc({07});
  64.  
  65. %SNDMSG    {
  66.     [file]
  67.     case    (SOUND2={}||SOUND2={},
  68.         {No},    {case    (@filechk(SOUND2|file),
  69.                 {Yes},{snd(SOUND2|file)},
  70.                 {No}, {display(BELL)})},
  71.         {Yes},    {display(BELL)}
  72.         );
  73.     };
  74.  
  75. /* パラメタで指定されたディレクトリへ移動する(｢A:\｣と｢A:｣の両方が可能) */
  76. %setcdir2{
  77.     [dir]
  78.     %dir2    @case(@nochar(dir),2,{im(dir|{\})},,{im(dir)});
  79.     setcdir(dir2)
  80.     };
  81.  
  82. /* 指定されたディレクトリー配下に,第2パラメターで指定されたディレクトリを
  83.      (もし,無ければ)作成する｡ */
  84. %mkdir    {
  85.     [dir,name]
  86.     dispoff({Yes});
  87.     case    (@setcdir2(dir),
  88.         {Yes},{command({mkdir }|name)},
  89.         {No},
  90.         {
  91.         select    ({装置(}|dir|{)が使えませんが?},
  92.             999,{},
  93.             {    もう一回やってみる    },{mkdir(dir,name)},
  94.             { ディレクトリを作成しない },{},
  95.             {      処理を中止する   　},{stop});
  96.         });
  97.     dispoff({No})
  98.     };
  99.  
  100. /* 指定されたディレクトリーを(もし,無ければ)作成する｡ */
  101. %mkdir2    {
  102.     [dir]
  103.     case    (@setcdir2(dir),
  104.         {Yes},,
  105.         {No},{mkdir2(@body(dir,,{\}));
  106.             mkdir(@body(dir,,{\}),@tail(dir,{\}));}
  107.         );
  108.     };
  109.  
  110. /*    全ての MEMO を ｸﾛｰｽﾞ する    */
  111. %CloseAllMemo{
  112.     case    (@mlast!=0 && @mcheck==0,{Yes},{mopen(@mlast)});
  113.     case    (@mcheck!=0,{Yes},
  114.         {loop    ({mclose(2);  im(@mcheck!=0);});
  115.         });
  116.     };
  117.  
  118. /*    MEMO を クリア する    */
  119. %DELmemo{
  120.     case(@mcheck,{0},{mopen(1); }); mclose(3);
  121.     };
  122.  
  123. %ALLClear{
  124.     loop    ({ 
  125.         case    (@mlast<>{0},
  126.             {Yes},{DELmemo; im({Yes});},
  127.             {No},{im({No});
  128.             });
  129.         });
  130.     };
  131.  
  132. %DELAllMemo{
  133.     case    (@mlast > 0,
  134.         {Yes},
  135.         {
  136.         MEMOno:=0;
  137.         CloseAllMemo;
  138.         loop    ({mopen(@mlast);
  139.             mclose(3);
  140.             im(@mlast > 0);
  141.             });
  142.         });
  143.     };
  144.  
  145. %PLTSTOP{    /*    ﾊﾟｲﾛｯﾄ停止処理（PF20キーで再起動）    */
  146.     display({\nＮ.Ｏ.Ｓ.(}|VerLev|{) を終了します(PF20ｷｰで再起動)\n});
  147.     setpf(20,{footnote({NOSMAIN.PLT Loading,,,♪});}|
  148.                 {#}|CDIR2|{NOSMAIN.PLT});
  149.     };
  150.  
  151. /*    背景色の設定    */
  152. %setCOLOR{
  153.     case    (R,{},{R:=0});
  154.     case    (G,{},{G:=0});
  155.     case    (B,{},{B:=0});
  156.     SNDMSG({erande_f.snd});
  157.     footnote({背景色の変更中,,,♪( 変更前 R=}|R|{,G=}|G|{,B=}|B|{ )});
  158.     loop    ({
  159.         select    ({[赤･緑･青]を左ｸﾘｯｸしてネ☆}|
  160.                 {(現在の色は R=}|R|{,G=}|G|{,B=}|B|{)},
  161.             999,{im({No})},
  162.         {赤↑ﾜﾝ･ｸﾘｯｸ[+10]},
  163.         {case(R<246,{Yes},{R:=R+10;backclr(R,G,B)});im({Yes})},
  164.         {緑↑ﾜﾝ･ｸﾘｯｸ[+10]},
  165.         {case(G<246,{Yes},{G:=G+10;backclr(R,G,B)});im({Yes})},
  166.         {青↑ﾜﾝ･ｸﾘｯｸ[+10]},
  167.         {case(B<246,{Yes},{B:=B+10;backclr(R,G,B)});im({Yes})},
  168.         {赤↓ﾜﾝ･ｸﾘｯｸ[-10]},
  169.         {case(R>  9,{Yes},{R:=R-10;backclr(R,G,B)});im({Yes})},
  170.         {緑↓ﾜﾝ･ｸﾘｯｸ[-10]},
  171.         {case(G>  9,{Yes},{G:=G-10;backclr(R,G,B)});im({Yes})},
  172.         {青↓ﾜﾝ･ｸﾘｯｸ[-10]},
  173.         {case(B>  9,{Yes},{B:=B-10;backclr(R,G,B)});im({Yes})},
  174.             {     終  了     },{im({No})}
  175.             );
  176.         });
  177.     };
  178.  
  179. /*    ﾄﾞﾗｲﾌﾞﾃﾞｨﾚｸﾄﾘ & 背景色設定書き込み制御文    */
  180. %setINIT{
  181.     %snddir    SOUND;
  182.     %colorR    R;
  183.     %colorG    G;
  184.     %colorB    B;
  185.  
  186.     loop    ({
  187.         footnote({Ｎ.Ｏ.Ｓ.初期環境情報の設定処理中,,,♪});
  188.         SNDMSG({nyuryo_f.snd});
  189.         %a @plane(
  190.             {c 初期環境情報を入力してネ☆(^_^)/♪\n}|
  191.             {c\n}|
  192.             {t ｻｳﾝﾄﾞ･ﾌｧｲﾙ格納用ﾃﾞｨﾚｸﾄﾘ/\n}|
  193.             {c（ﾄﾞﾗｲﾌﾞやﾃﾞｨﾚｸﾄﾘは、ﾌﾙﾊﾟｽで指定}|
  194.                 {（末尾の「\」は不要）\n}|
  195.             {c ｻｳﾝﾄﾞ･ﾌｧｲﾙを使用しない場合は、ﾄﾞﾗｲﾌﾞのみ指定）\n}|
  196.             {c\n}|
  197.             {t 背景色［赤］（ 0～255）/xxx\n}|
  198.             {t 背景色［緑］（ 0～255）/xxx\n}|
  199.             {t 背景色［青］（ 0～255）/xxx\n}|
  200.             {c\n}|
  201.             {s　　　　　　　　　　　　　　  　/   設定する   \n},
  202.             snddir,colorR,colorG,colorB);
  203.         %snddir    @head(@getline(a,1,1),{\n});
  204.         %colorR    @head(@getline(a,2,1),{\n});
  205.         %colorG    @head(@getline(a,3,1),{\n});
  206.         %colorB    @head(@getline(a,4,1),{\n});
  207.         %ok    @head(@getline(a,5,1),{\n});
  208.         case    (ok,
  209.             { 1},    {
  210.                 SOUND:=snddir;mkdir2(SOUND);
  211.                 R:=colorR;
  212.                 G:=colorG;
  213.                 B:=colorB;
  214.                 im({No});
  215.                 },
  216.             ,    {im({Yes})}
  217.             );
  218.         });
  219.     };
  220.  
  221. /*    アクセスポイント電話番号の設定制御文    */
  222. %setTEL    {
  223.     case(DIAL,{T},{DIAL:={1}},{P},{DIAL:={2}});
  224.     %rd1    ROAD1;
  225.     %rd2    ROAD2;
  226.     %dial    DIAL;
  227.     loop    ({
  228.         footnote({ｱｸｾｽ･ﾎﾟｲﾝﾄ電話番号の設定処理中,,,♪});
  229.         SNDMSG({nyuryo_f.snd});
  230.         %a @plane(
  231.             {cｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を設定してネ☆(^_^)/♪\n}|
  232.             {tＲＯＡＤ１の電話番号/\n}|
  233.             {s（選択ﾎﾞﾀﾝをｸﾘｯｸで検索ﾒﾆｭｰ表示）/選択ﾎﾞﾀﾝ\n}|
  234.             {c ROAD1の場合､電話番号の後に ｽﾗｯｼｭ｢/｣と｢通信速度｣\n}|
  235.             {c を追加してください（例：｢/1200｣又は｢/2400｣）\n}|
  236.             {c\n}|
  237.             {tＲＯＡＤ２の電話番号/\n}|
  238.             {s（選択ﾎﾞﾀﾝをｸﾘｯｸで検索ﾒﾆｭｰ表示）/選択ﾎﾞﾀﾝ\n}|
  239.             {c\n}|
  240.             {r 電話回線の種類  /ﾌﾟｯｼｭﾎﾝ式   /ﾀﾞｲﾔﾙﾊﾟﾙｽ式\n}|
  241.             {s　　　　　　　　　　　　　　   /   設定する   \n},
  242.             rd1,rd2,dial);
  243.         %rd1    @head(@getline(a,1,1),{\n});
  244.         %rd1sel    @head(@getline(a,2,1),{\n});
  245.         %rd2    @head(@getline(a,3,1),{\n});
  246.         %rd2sel    @head(@getline(a,4,1),{\n});
  247.         %dial    @head(@getline(a,5,1),{\n});
  248.         %ok    @head(@getline(a,6,1),{\n});
  249.         case(rd1sel,{ 1},{setcdir(cdir); #ROAD1.PLP; im({Yes})});
  250.         case(rd2sel,{ 1},{setcdir(cdir); #ROAD2.PLP; im({Yes})});
  251.         case(ok,{ 1},
  252.             {
  253.             ROAD1:=rd1;
  254.             ROAD2:=rd2;
  255.             DIAL:=@case(dial,{ 1},{im({T})},{ 2},{im({P})},
  256.                     ,{im({P})});
  257.             im({No});
  258.             },
  259.             ,    {im({Yes})});
  260.         });
  261.     };
  262.  
  263. /*    NIFTYでの初期情報設定書き込み制御文    */
  264. %setNIFTY{
  265.     case(OPEN,{},{OPEN:={1}},{1},{OPEN:={2}});
  266.     %modem        MODEM;
  267.     %serno        SERno;
  268.     %agrno        AGRno;
  269.     %lineno        LINEno;
  270.     %comid        ComID;
  271.     %open        OPEN;
  272.  
  273.     loop    ({
  274.         footnote({ＮＩＦＴＹ関係の情報の設定処理中,,,♪});
  275.         SNDMSG({nyuryo_f.snd});
  276.         %a @plane(
  277.             {c NIFTY 関係の情報を入力してネ☆(^_^)/♪\n}|
  278.             {t ＡＴモデム・コマンド/\n}|
  279.             {s（選択ﾎﾞﾀﾝをｸﾘｯｸで検索ﾒﾆｭｰ表示）/選択ﾎﾞﾀﾝ\n}|
  280.             {c\n}|
  281.             {t SERIAL NUMBER   （半角で8文字）/xxxxxxxx\n}|
  282.             {t AGREEMENT NUMBER（半角で8文字）/xxxxxxxx\n}|
  283.             {t 画面の最大表示行数（9 ～ 99 ） /xx\n}|
  284.             {r Compu-Serve IDの取得 /する  /しない \n}|
  285.             {r   個人情報の公開     /公開  /非公開 \n}|
  286.             {c\n}|
  287.             {s                                /   設定する   \n},
  288.             modem,serno,agrno,lineno,comid,open);
  289.         %modem    @head(@getline(a,1,1),{\n});
  290.         %mselct    @head(@getline(a,2,1),{\n});
  291.         %serno    @head(@getline(a,3,1),{\n});
  292.         %agrno    @head(@getline(a,4,1),{\n});
  293.         %lineno    @head(@getline(a,5,1),{\n});
  294.         %comid    @head(@getline(a,6,1),{\n});
  295.         %open    @head(@getline(a,7,1),{\n});
  296.         %ok    @head(@getline(a,8,1),{\n});
  297.         case(mselct,{ 1},{setcdir(cdir); #MODEM.PLP; im({Yes})});
  298.         case    (ok,
  299.             { 1},
  300.             {
  301.             MODEM:=modem;
  302.             SERno:=serno;
  303.             AGRno:=agrno;
  304.             LINEno:=lineno;
  305.             ComID:=@case(comid,{ 1},{im({1})},{ 2},{im({2})},
  306.                     ,{im({2})});
  307.             OPEN:=@case(open,{ 1},{im({})},{ 2},{im({1})},
  308.                     ,{im({1})});
  309.             im({No});
  310.             },
  311.             ,    {im({Yes})}
  312.             );
  313.         });
  314.     };
  315.  
  316. /*    氏名設定書き込み制御文    */
  317. %setNAME{
  318.     %name    NAME;
  319.     %lname    Lname;
  320.     %fname    Fname;
  321.  
  322.     loop    ({
  323.         footnote({氏名等の情報を設定処理中,,,♪});
  324.         SNDMSG({nyuryo_f.snd});
  325.         %a @plane(
  326.             {c 氏名を入力してネ☆(^_^)/♪\n}|
  327.             {c\n}|
  328.             {t 氏と名を入力（漢字で８文字まで）  }|
  329.                 {/xxxxxxxxxxxxxxxx\n}|
  330.             {c\n}|
  331.             {t 氏（ﾛｰﾏ字で20文字まで）例:YAMADA）}|
  332.                 {/xxxxxxxxxxxxxxxxxxxx\n}|
  333.             {c\n}|
  334.             {t 名前（ﾛｰﾏ字で20文字まで）例:TARO）}|
  335.                 {/xxxxxxxxxxxxxxxxxxxx\n}|
  336.             {c\n}|
  337.             {s                                /   設定する   \n},
  338.             name,lname,fname);
  339.         %name    @head(@getline(a,1,1),{\n});
  340.         %lname    @head(@getline(a,2,1),{\n});
  341.         %fname    @head(@getline(a,3,1),{\n});
  342.         %ok    @head(@getline(a,4,1),{\n});
  343.         case    (ok,
  344.             { 1},    {
  345.                 NAME:=name;
  346.                 Lname:=lname;
  347.                 Fname:=fname;
  348.                 im({No});
  349.                 },
  350.             ,    {im({Yes})}
  351.             );
  352.         });
  353.     };
  354.  
  355. /*    住所･電話番号設定書き込み制御文    */
  356. %setADRS{
  357.     %city        CITY;
  358.     %mycity        myCITY;
  359.     %rmycity    RmyCITY;
  360.     %mybanchi    myBANCHI;
  361.     %rmybanchi    RmyBANCHI;
  362.     %mykatagaki    myKATAGAKI;
  363.     %rmykatagaki    RmyKATAGAKI;
  364.     %yubinno    YUBINno;
  365.     %telno        TELno;
  366.  
  367.     loop    ({
  368.         footnote({住所･肩書･電話番号等々の設定処理中,,,♪});
  369.         SNDMSG({nyuryo_f.snd});
  370.         %a @plane(
  371.             {c住所/肩書/郵便･電話番号を入力してネ☆(^_^)/♪\n}|
  372.             {t都道府県ｺｰﾄﾞ（選択ﾎﾞﾀﾝをｸﾘｯｸで検索ﾒﾆｭｰ表示）/xx\n}|
  373.             {s             /選択ﾎﾞﾀﾝ\n}|
  374.             {t市郡名（例:横浜市,千代田区等）  /xxxxxxxxxx\n}|
  375.             {t市郡名（ﾛｰﾏ字 23区は区名も 例:YOKOHAMASHI）/\n}|
  376.             {t所番地（20文字 例:大山 6-26-1）/\n}|
  377.             {t所番地（ﾛｰﾏ字で30文字 例:Oyama 6-chome）/\n}|
  378.             {t方書（20文字 例:ﾍﾞﾙﾊｲﾑ 206 ）/\n}|
  379.             {t方書（ﾛｰﾏ字で30文字 例:BERUHAIMU 206）/\n}|
  380.             {t郵便番号（例:102）/xxxxxx\n}|
  381.             {t自宅電話番号（市外局番も 例:03-5471-5800）/\n}|
  382.             {s                                /   設定する   \n},
  383.             city,mycity,rmycity,mybanchi,rmybanchi,mykatagaki,
  384.             rmykatagaki,yubinno,telno);
  385.  
  386.         %city        @head(@getline(a,1,1),{\n});
  387.         %citysel    @head(@getline(a,2,1),{\n});
  388.         %mycity        @head(@getline(a,3,1),{\n});
  389.         %rmycity    @head(@getline(a,4,1),{\n});
  390.         %mybanchi    @head(@getline(a,5,1),{\n});
  391.         %rmybanchi    @head(@getline(a,6,1),{\n});
  392.         %mykatagaki    @head(@getline(a,7,1),{\n});
  393.         %rmykatagaki    @head(@getline(a,8,1),{\n});
  394.         %yubinno    @head(@getline(a,9,1),{\n});
  395.         %telno        @head(@getline(a,10,1),{\n});
  396.         %ok        @head(@getline(a,11,1),{\n});
  397.         case(citysel,{ 1},{setcdir(cdir); #CITY.PLP; im({Yes})});
  398.         case    (ok,
  399.             { 1},    {
  400.                 CITY:=city;
  401.                 myCITY:=mycity;
  402.                 RmyCITY:=rmycity;
  403.                 myBANCHI:=mybanchi;
  404.                 RmyBANCHI:=rmybanchi;
  405.                 myKATAGAKI:=mykatagaki;
  406.                 RmyKATAGAKI:=rmykatagaki;
  407.                 YUBINno:=yubinno;
  408.                 TELno:=telno;
  409.                 im({No});
  410.                 },
  411.             ,    {im({Yes})}
  412.             );
  413.         });
  414.     };
  415.  
  416. /*    勤務先･電話番号設定書き込み制御文    */
  417. %setOFFICE{
  418.     %office        OFFICE;
  419.     %kakari        KAKARI;
  420.     %officeno    OFFICEno;
  421.  
  422.     loop    ({
  423.         footnote({勤務先･電話番号等の設定処理中,,,♪});
  424.         SNDMSG({nyuryo_f.snd});
  425.         %a @plane(
  426.             {c 勤務先･電話番号を入力してネ☆(^_^)/♪\n}|
  427.             {c\n}|
  428.             {t 勤務先（全角３０文字以内）}|
  429.                 {/\n}|
  430.             {c\n}|
  431.             {t 部課名（全角３０文字以内）}|
  432.                 {/\n}|
  433.             {c\n}|
  434.             {t 電話番号（市外局番も 例:03-5471-5800）/\n}|
  435.             {c\n}|
  436.             {s                                /   設定する   \n},
  437.             office,kakari,officeno);
  438.  
  439.         %office        @head(@getline(a,1,1),{\n});
  440.         %kakari        @head(@getline(a,2,1),{\n});
  441.         %officeno    @head(@getline(a,3,1),{\n});
  442.         %ok        @head(@getline(a,4,1),{\n});
  443.         case    (ok,
  444.             { 1},    {
  445.                 OFFICE:=office;
  446.                 KAKARI:=kakari;
  447.                 OFFICEno:=officeno;
  448.                 im({No});
  449.                 },
  450.             ,    {im({Yes})}
  451.             );
  452.         });
  453.     };
  454.  
  455. /*    ｸﾚｼﾞｯﾄｶｰﾄﾞ･会員番号設定書き込み制御文    */
  456. %setCLEDIT{
  457.     %cledit        CLEDIT;
  458.     %member        MEMBER;
  459.     %limit        LIMIT;
  460.  
  461.     loop    ({
  462.         footnote({クレジットカード・会員番号等の設定処理中,,,♪});
  463.         SNDMSG({nyuryo_f.snd});
  464.         %a @plane(
  465.             {c ｸﾚｼﾞｯﾄｶｰﾄﾞ・会員番号を入力してネ☆(^_^)/♪\n}|
  466.             {t ｸﾚｼﾞｯﾄｶｰﾄﾞ種別（選択ﾎﾞﾀﾝをｸﾘｯｸで検索ﾒﾆｭｰ表示）}|
  467.                             {/xx\n}|
  468.             {s                 /選択ﾎﾞﾀﾝ\n}|
  469.             {c\n}|
  470.             {t 会員番号（例：XXXX XXXX XXXX XXXX）}|
  471.                     {/xxxxxxxxxxxxxxxxxxx\n}|
  472.             {c 有効期限（例：11/95）\n}|
  473.             {t 有効期限      /xxxxx\n}|
  474.             {c\n}|
  475.             {s                               /   設定する   \n},
  476.             cledit,member,limit);
  477.  
  478.         %cledit        @head(@getline(a,1,1),{\n});
  479.         %clsel        @head(@getline(a,2,1),{\n});
  480.         %member        @head(@getline(a,3,1),{\n});
  481.         %limit        @head(@getline(a,4,1),{\n});
  482.         %ok        @head(@getline(a,5,1),{\n});
  483.         case(clsel,{ 1},{setcdir(cdir); #CLEDIT.PLP; im({Yes})});
  484.         case    (ok,
  485.             { 1},    {
  486.                 CLEDIT:=cledit;
  487.                 MEMBER:=member;
  488.                 LIMIT:=limit;
  489.                 im({No});
  490.                 },
  491.             ,    {im({Yes})}
  492.             );
  493.         });
  494.     };
  495.  
  496. /*    パソコンのメーカ･機種設定書き込み制御文    */
  497. %setMACHINE{
  498.     %maker        MAKER;
  499.     %machine    MACHINE;
  500.  
  501.     loop    ({
  502.         footnote({メーカー及び機種名の設定処理中,,,♪});
  503.         SNDMSG({nyuryo_f.snd});
  504.         %a @plane(
  505.             {c メーカー番号及び機種名を入力してネ☆(^_^)/♪\n}|
  506.             {c\n}|
  507.             {t パソコン／ワープロのメーカ番号 /xx\n}|
  508.             {s（選択ﾎﾞﾀﾝをｸﾘｯｸで検索ﾒﾆｭｰ表示）/選択ﾎﾞﾀﾝ\n}|
  509.             {c\n}|
  510.             {t ﾊﾟｿｺﾝ･ﾜｰﾌﾟﾛの使用機種名  /xxxxxxxxxxxxxxxx\n}|
  511.             {c\n}|
  512.             {s                                /   設定する   \n},
  513.             maker,machine);
  514.  
  515.         %maker        @head(@getline(a,1,1),{\n});
  516.         %mksel        @head(@getline(a,2,1),{\n});
  517.         %machine    @head(@getline(a,3,1),{\n});
  518.         %ok        @head(@getline(a,4,1),{\n});
  519.         case(mksel,{ 1},{setcdir(cdir); #MAKER.PLP; im({Yes})});
  520.         case    (ok,
  521.             { 1},    {
  522.                 MAKER:=maker;
  523.                 MACHINE:=machine;
  524.                 im({No});
  525.                 },
  526.             ,    {im({Yes})}
  527.             );
  528.         });
  529.     };
  530.  
  531. /*    設定情報をファイルに保存する    */
  532. %writeSET{
  533.     [file]
  534.     setcdir(CDIR);
  535.     dispoff(!DEBUG);
  536.     command({copy }|file|{ *.BAK});
  537.     command({del }|file);
  538.     dispoff({No});
  539.     %MEMOno @mlast+1;
  540.     %SETdata{[HEAD,DATA]
  541.         madd(MEMOno,HEAD|{:=}|@xc({7b})|DATA|@xc({7d})|{;\n});
  542.         };
  543.     SETdata({SOUND    },SOUND);
  544.     SETdata({R    },R);
  545.     SETdata({G    },G);
  546.     SETdata({B    },B);
  547.     SETdata({ROAD1    },ROAD1);
  548.     SETdata({ROAD2    },ROAD2);
  549.     SETdata({ROAD3    },ROAD3);
  550.     SETdata({DIAL    },DIAL);
  551.     SETdata({MODEM    },MODEM);
  552.     SETdata({SERno    },SERno);
  553.     SETdata({AGRno    },AGRno);
  554.     SETdata({NAME    },NAME);
  555.     SETdata({Lname    },Lname);
  556.     SETdata({Fname    },Fname);
  557.     SETdata({CITY    },CITY);
  558.     SETdata({myCITY    },myCITY);
  559.     SETdata({RmyCITY},RmyCITY);
  560.     SETdata({myBANCHI},myBANCHI);
  561.     SETdata({RmyBANCHI},RmyBANCHI);
  562.     SETdata({myKATAGAKI},myKATAGAKI);
  563.     SETdata({RmyKATAGAKI},RmyKATAGAKI);
  564.     SETdata({YUBINno},YUBINno);
  565.     SETdata({TELno    },TELno);
  566.     SETdata({OFFICE    },OFFICE);
  567.     SETdata({KAKARI    },KAKARI);
  568.     SETdata({OFFICEno},OFFICEno);
  569.     SETdata({ComID    },ComID);
  570.     SETdata({CLEDIT    },CLEDIT);
  571.     SETdata({MEMBER    },MEMBER);
  572.     SETdata({LIMIT    },LIMIT);
  573.     SETdata({MAKER    },MAKER);
  574.     SETdata({MACHINE},MACHINE);
  575.     SETdata({LINEno    },LINEno);
  576.     SETdata({OPEN    },OPEN);
  577.     SETdata({YesNo    },YesNo);
  578.     SETdata({ID    },ID);
  579.     SETdata({PW    },PW);
  580.  
  581.     loop    ({ 
  582.         case    (@mcheck<>{0},
  583.             {Yes},{mclose(1); im({Yes});},
  584.             {No},{im({No})});
  585.         });
  586.     mwrite(file,MEMOno);
  587.     mopen(MEMOno,0,21,639,459);
  588.     mclose(3);
  589.     /*    display({\n☆設定内容を保存しました☆\n\n});    */
  590.     };
  591.  
  592. /*    未設定情報を画面に表示する    */
  593. %MSGDSP{
  594.     %MSGdata{
  595.         [PARA,MSG]
  596.         case(PARA,{},{display(MSG|{が未設定です☆\n})});
  597.         };
  598.     MSGdata(ROAD1 && ROAD2,{☆アクセスポイントの電話番号});
  599.     MSGdata(MODEM,{☆モデムコマンド});
  600.     MSGdata(SERno,{☆シリアルナンバー});
  601.     MSGdata(AGRno,{☆アグリーメントナンバー});
  602.     MSGdata(NAME,{☆氏名});
  603.     MSGdata(Lname,{☆ラストネーム});
  604.     MSGdata(Fname,{☆ファーストネーム});
  605.     MSGdata(CITY,{☆都道府県名の番号});
  606.     MSGdata(myCITY,{☆住所});
  607.     MSGdata(RmyCITY,{☆住所(ローマ字)});
  608.     MSGdata(myBANCHI,{☆番地});
  609.     MSGdata(RmyBANCHI,{☆番地(ローマ字)});
  610.     MSGdata(YUBINno,{☆郵便番号});
  611.     MSGdata(TELno,{☆電話番号});
  612.     MSGdata(OFFICE,{☆勤務先});
  613.     MSGdata(KAKARI,{☆所属});
  614.     MSGdata(OFFICEno,{☆勤務先電話番号});
  615.     MSGdata(CLEDIT,{☆クレジットカードの種別});
  616.     MSGdata(MEMBER,{☆会員番号});
  617.     MSGdata(LIMIT,{☆有効期限});
  618.     MSGdata(MAKER,{☆メーカ番号});
  619.     MSGdata(MACHINE,{☆機種名});
  620.     MSGdata(LINEno,{☆画面最大表示行数});
  621.     case    (YesNo,{1},
  622.         {display({☆オンライン･サインアップ手続きを完了します☆\n});
  623.         display({☆中止する場合は「AUTO」ｱｲｺﾝをｸﾘｯｸ後「Pilot Stop?」}|
  624.             {をｸﾘｯｸしてください☆\n\n})});
  625.     };
  626.  
  627. %RETRY{
  628.     loop    ({
  629.         footnote({再度設定内容の確認処理中,,,♪});
  630.         SNDMSG({erande_f.snd});
  631.         select    ({    設定メニューを選んでネ☆(^_^)/♪},
  632.             60,    {setcdir(cdir)},
  633.             {  アクセスポイントの設定(AP) },
  634.             {setcdir(cdir); setTEL; im({Yes})},
  635.             {  NIFTYに関する設定( NIFTY ) },
  636.             {setcdir(cdir); setNIFTY; im({Yes})},
  637.             {  氏名・ﾌｧｰｽﾄ(ﾗｽﾄ)ﾈｰﾑ (NAME) },
  638.             {setcdir(cdir); setNAME; im({Yes})},
  639.             { 住所･方書･電話番号 (ADDRESS)},
  640.             {setcdir(cdir); setADRS; im({Yes})},
  641.             { 勤務先･所属･電話番号(OFFICE)},
  642.             {setcdir(cdir); setOFFICE; im({Yes})},
  643.             {  ｸﾚｼﾞｯﾄｶｰﾄﾞ･会員番号(CLEDIT)},
  644.             {setcdir(cdir); setCLEDIT; im({Yes})},
  645.             {  使用機種･メーカ名 (MACHINE)},
  646.             {setcdir(cdir); setMACHINE; im({Yes})},
  647.             {   操作説明（ﾏﾆｭｱﾙ）をみる   },
  648.             {setcdir(cdir);    #HELP.PLP; im({Yes})},
  649.             {　　  終　  了 ( ﾒｲﾝ･ﾒﾆｭｰへ )},{im({No})});
  650.         });
  651.     writeSET({USER_SET.SET});
  652.     };
  653.  
  654. %setTRY    {
  655.     setTEL;
  656.     setNIFTY;
  657.     setNAME;
  658.     setADRS;
  659.     setOFFICE;
  660.     setCLEDIT;
  661.     setMACHINE;
  662.     writeSET({USER_SET.SET}); 
  663.     };
  664.  
  665. /*    ヘルプ画面表示の選択    */
  666. %HELP{
  667.     footnote({メニューをマウス左クリックで選択してください});
  668.     SNDMSG({erande_f.snd});
  669.     select    ({    メニューを選んでネ☆(^_^)/♪},
  670.         ,,
  671.         { 操作説明（ﾏﾆｭｱﾙ）をみる },{setcdir(cdir);#HELP.PLP;},
  672.         {   先へ進む ( 初期設定 ) },{});
  673.     };
  674.  
  675. /*    オープニング画面表示    */
  676. %setBEGIN{
  677.     loop    ({
  678.         footnote({Ｎ.Ｏ.Ｓ.オープニング ，，，♪});
  679.         SNDMSG({BELL.SND});
  680.         %a @plane(
  681.         {c ☆☆☆オートパイロットマクロの世界へようこそ！！☆☆☆\n}|
  682.         {c\n}|
  683.         {c  NIFTY-Serve オンライン･サインアップを実行したい人へ\n}|
  684.         {c\n}|
  685.         {c　このマクロは、通信開始前に必要な項目を設定すること\n}|
  686.         {c\n}|
  687.         {c  で、効率良くサインアップの手続きを完了します(^_^)\n}|
  688.         {c\n}|
  689.         {c  ＜ 入力の方法について ＞\n}|
  690.         {c  青色の［        ］･･･ キーボードから入力します\n}|
  691.         {c  青色の［選択ﾎﾞﾀﾝ］･･･ ﾏｳｽ左ｸﾘｯｸで一覧ﾒﾆｭｰを表示します\n}|
  692.         {c  赤色の［ ●ﾎﾞﾀﾝ ］･･･ ﾏｳｽ左ｸﾘｯｸで項目を選択します\n}|
  693.         {c  その他、青色の各メニューは、ﾏｳｽ左ｸﾘｯｸで選択します\n}|
  694.         {c\n}|
  695.         {s  宜しければ［次頁］ﾎﾞﾀﾝをﾏｳｽ左ｸﾘｯｸしてください→ / 次頁 },
  696.         );
  697.         %ok    @head(@getline(a,1,1),{\n});
  698.         case(ok,{ 1},{HELP;im({No})},,{im({Yes})});
  699.         });
  700.     };
  701.  
  702. /************************************************************************
  703. *        メインメニュー    処理                    *
  704. *************************************************************************/
  705. %cdir    @getcdir;
  706. %CDIR    @getcdir;
  707. %CDIR2    @case    (@nochar(CDIR)==3,
  708.         {Yes}, {im(CDIR)},
  709.         {No},{im(CDIR|{\})});
  710.  
  711. %NOSMAIN{
  712.     display({\nＮ.Ｏ.Ｓ.(}|VerLev|{) を開始します(^_^)/♪\n});
  713.     display({開始時刻は -}|@getchar(@daylong,16,8)|{- です\n});
  714.     DELAllMemo;
  715.     setBEGIN;
  716.     case    (@nochar(CDIR)==3,
  717.         {No}, {SETFILE:=CDIR|{\}|{USER_SET.SET}},
  718.         {Yes},{SETFILE:=CDIR|{USER_SET.SET}});
  719.     case    (@filechk(SETFILE),
  720.         {Yes},{setcdir(CDIR); #USER_SET.SET; init;},
  721.         {No}, {setcdir(CDIR); #INIT_SET.SET; setINIT; init; setTRY;}
  722.         );
  723.     setcdir(cdir);
  724.     loop    ({
  725.     footnote({*** Ｎｉｆｔｙ Ｏｆｆｌｉｎｅ Ｓｉｇｎｕｐ *** }|VerLev);
  726.         SNDMSG({erande_f.snd});
  727.         select    ({　　処理メニューを選んでネ☆(^_^)/♪},
  728.             60,    {setcdir(cdir)},
  729.             {［１］  初期環境設定を行う          （ ＩＮＩＴ ）},
  730.             {setcdir(cdir);    setINIT; setCOLOR; init; im({Yes})},
  731.             {［２］  最初から設定を行う          （  ＴＲＹ  ）},
  732.             {setcdir(cdir); setTRY; im({Yes})},
  733.             {［３］ 再度 設定内容を確認する    （ ＲＥＴＲＹ ）},
  734.             {setcdir(cdir);    #USER_SET.SET; RETRY; im({Yes})},
  735.             {［４］ 全ての設定項目を保存する     （ ＳＡＶＥ ）},
  736.             {writeSET({USER_SET.SET}); im({Yes})},
  737.             {［５］ＮＩＦＴＹ-Ｓｅｒｖｅへ接続開始（ CONNECT ）},
  738.             {setcdir(cdir);    #USER_SET.SET; MSGDSP; #CONNECT.PLP;
  739.             case    (ID={},    {Yes},{writeSET({USER_SET.SET})},
  740.                     {No},{ID:=@getchar(ID,1,8);
  741.                         writeSET(ID|{.SET})});
  742.             init; im({Yes});
  743.             },
  744.             {［６］ 操作説明（ﾏﾆｭｱﾙ）をみる      （ ＨＥＬＰ ）},
  745.             {setcdir(cdir);    #HELP.PLP; im({Yes})},
  746.             {［７］     終　     了              （ ＥＸＩＴ ）},
  747.             {setcdir(cdir);    PLTSTOP; im({No})}
  748.             );
  749.         });
  750.     };
  751.  
  752. footnote({Ｎ.Ｏ.Ｓ.起動中,,,♪});
  753. case    (@mlast > 0,
  754.     {Yes},
  755.     {
  756.     SNDMSG    ({kaknin_f.snd});
  757.     select    ({編集中のメモを削除する？},
  758.         999,{im({No})},
  759.         {  す る   },{NOSMAIN},
  760.         {　しない　},
  761.         {
  762.         SNDMSG({BELL.SND});
  763.         footnote({Ｎ.Ｏ.Ｓ.の起動中止します（PF20ｷｰで再起動）});
  764.         PLTSTOP;
  765.         wait(2);
  766.         });
  767.     },
  768.     {No},{NOSMAIN}
  769.     );
  770.